$maf=$ARGV[0];
chomp($maf);
#$maf="CHN_MAF_0.02";
open(BUFF,$maf) or die "no file found $maf\n";
while(<BUFF>)
{
	@a=split("\t",$_);
	$hash{$a[0]}=1;
}
$in=$ARGV[1];
chomp($in);
$out=$ARGV[2];
chomp($out);
#$in="unfiletered.out";
#$out="unfiletered_maf_0.02.out";
open(IN,"$in")or die "no file found $in\n";
open(WRBUFF,">$out") or die "no file found $out\n";
while(<IN>)
{
	chomp($_);
	@a=split("\t",$_);
	if(exists($hash{$a[9]}))
	{
		print WRBUFF $_."\n";	
	}
}
close(IN);
close(WRBUFF);
